go to marker(0)if TestMouse then testAnswer 1if TestMouse then testAnswer 2if TestMouse then testAnswer 3if NumCorrect = 10 then UserInfo(mSetModules, UserInfo(mGetModules) & "A10")else UserInfo(mSetModules, UserInfo(mGetModules) & "A0" & string(NumCorrect))end ifset the immediate of sprite 23 to TRUEset the immediate of sprite 24 to TRUEif TestMouse then play "PrintWait" end ifSpriteAnim(mSwapCast 4, "QPicture" & string(Question))SpriteAnim(mSwapCast 5, "QText" & string(Question))SpriteAnim(mSwapCast 6, "QAnswers" & string(Question))SpriteAnim(mSwapCast 7, "Q" & string(QDone + 1))set TransOn = TRUEWaitForQT 2UserInfo(mSaveInfo)if TestMouse then go to frame "LessonMenu" of movie "Menu"end ifPlayOptionButtonif TestMouse then play "Options"if TestMouse then go to "Options"PrintCertgo to "Review2"go to marker (0)if the optionDown then go to marker(1)set the text of cast "TheScore" to string(NumCorrect)PlayCorrect "post"set TransOn = FALSEif TestMouse then SpriteAnim(mClearPuppets, 10, 14) UserInfo(mDispose) SpriteAnim(mDispose) ThePath(mDispose) Globes(mDispose) quitend ifSpriteAnim(mClearPuppets, 4, 7)go to movie "PPInst1"go to "PostTest"set FrameType = 0pauseset FrameType = 1pauseset FrameType = 2pauseif NumCorrect = 10 then UserInfo(mSetModules, UserInfo(mGetModules) & "E10")else UserInfo(mSetModules, UserInfo(mGetModules) & "E0" & string(NumCorrect))end ifUserInfo(mReadInfo)set the text of field "UserName" to UserInfo(mGetUserName)if the text of field "UserName" = EMPTY then set the text of field "UserName" to " "end ifset the textFont of field "UserName" to "Times"set the textSize of field "UserName" to 24set the textStyle of field "UserName" to "bold, italic"set TransOn = FALSEpuppetSound 0if the machineType = 256 then if LevelSetting then set the soundLevel to LevelSetting end if end ifPlayHelpButtonif TestMouse then SpriteAnim(mClearPuppets, 7, 14) UserInfo(mDispose) SpriteAnim(mDispose) ThePath(mDispose) Globes(mDispose) quitend ifgo to the frame - 1UserInfo(mReadInfo)set the text of field "UserName" to UserInfo(mGetUserName)if the text of field "UserName" = EMPTY then set the text of field "UserName" to " "end ifset the textFont of field "UserName" to "Times"set the textSize of field "UserName" to 24set the textStyle of field "UserName" to "bold, italic"set Answer = EMPTYset QList = EMPTYset QDone = 0set NumCorrect = 0set TransOn = TRUEGlobes(mSetPlace, "PostTest")set Review = FALSEsound playFile 1, "review.aif"if the machineType = 256 then checkFileset Review = TRUEset the immediate of sprite 23 to TRUEset the immediate of sprite 24 to TRUEUserInfo(mReadInfo)set the text of field "UserName" to UserInfo(mGetUserName)if the text of field "UserName" = EMPTY then set the text of field "UserName" to " "end ifset the textFont of field "UserName" to "Times"set the textSize of field "UserName" to 24set the textStyle of field "UserName" to "bold, italic"sound playFile 1, "review.aif"play doneset TransOn = TRUEpickQuestion "Pre"set TransOn = FALSEif the machineType = 256 then if VolumeSetting then set the volume of sprite 2 to VolumeSetting end ifend ifif the machineType = 256 then removeFlagFilepickQuestion "Post"set TransOn = FALSEset TransOn = FALSEPlayReviewButtonset Review = 2set the immediate of sprite 23 to TRUEset the immediate of sprite 24 to TRUEUserInfo(mReadInfo)set the text of field "UserName" to UserInfo(mGetUserName)if the text of field "UserName" = EMPTY then set the text of field "UserName" to " "end ifset the textFont of field "UserName" to "Times"set the textSize of field "UserName" to 24set the textStyle of field "UserName" to "bold, italic"sound playFile 1, "review.aif"SpriteAnim(mSwapCast 4, "Num" & string(NumCorrect))updateStagePlayCorrect "pre"set TransOn = FALSE--UserInfo(mReadInfo)set the text of field "UserName" to UserInfo(mGetUserName)if the text of field "UserName" = EMPTY then set the text of field "UserName" to " "end ifset the textFont of field "UserName" to "Times"set the textSize of field "UserName" to 24set the textStyle of field "UserName" to "bold, italic"puppetSound 0set TransOn = FALSEif the machineType = 256 then if LevelSetting then set the soundLevel to LevelSetting end if end ifGlobes(mSetPlace, "PreTest")
